home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / Src / streams.h < prev    next >
Encoding:
C/C++ Source or Header  |  1993-07-15  |  637 b   |  25 lines
  1. /*
  2.   * streams.h
  3.   * header for new print/read junk
  4.   * External interface
  5.   */
  6.  
  7. /* Standard streams... */
  8. #ifndef NSTREAMS_H
  9. #define NSTREAMS_H
  10. extern LispObject std_streams;
  11.  
  12. #define StdIn()      vref(std_streams,0)
  13. #define StdOut()      vref(std_streams,1)
  14. #define StdErr()      vref(std_streams,2)
  15. #define MakeStdStreams()    std_streams=allocate_vector(stacktop,3); add_root(&std_streams);
  16.  
  17. extern LispObject generic_prin,generic_write, generic_flush;
  18.  
  19. extern void initialise_streams(LispObject *);
  20. LispObject print_string(LispObject *, LispObject, char *);
  21. LispObject Fn_print(LispObject *);
  22. LispObject Fn_read(LispObject *);
  23. #endif
  24.  
  25.